home *** CD-ROM | disk | FTP | other *** search
/ CD World 1998 January / CD World - Ocak 1998.iso / misc / dbase55 / disk7 / samples2.pak / SAMPLE.CFM < prev    next >
Text File  |  1996-01-05  |  3KB  |  89 lines
  1. *****************************************************************************
  2. *  FILE:         Sample.cfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         5/93
  7. *
  8. *  UPDATED:      6/95
  9. *
  10. *  REVISION:     $Revision:   1.1  $
  11. *
  12. *  VERSION:      Visual dBASE
  13. *
  14. *  DESCRIPTION:  This is a sample custom form file used by the Visual dBASE
  15. *                samples.  It contains a definition for SearchFormClass,
  16. *                which is a simple form for basic searching.  Search.wfm
  17. *                contains a form derived from this class.
  18. *
  19. *  PARAMETERS:   None
  20. *
  21. *  CALLS:        Buttons.cc         (Custom Controls file)
  22. *
  23. *  USAGE:        1.  From Form Designer:
  24. *                    Select "File", "Set Custom Form Class..." menu choices.
  25. *                    Select this file from the tool dialog, or just type it
  26. *                    into the "File Name Containing Class" entryfield.
  27. *                    Select SearchFormClass from "Class Name" combobox.
  28. *                    Press OK button, and you are set.
  29. *
  30. *                2.  From a program:
  31. *                    Define your form class to be inherited from
  32. *                    SearchFormClass as follows:
  33. *
  34. *                    CLASS <your class name> of SearchFormClass From "SAMPLE.CFM"
  35. *                    ...
  36. *                    ENDCLASS
  37. *
  38. *******************************************************************************
  39. CLASS SearchFormClass OF FORM Custom
  40.    Set Procedure to &_dbwinhome.samples\Buttons.cc Additive
  41.    this.Left = 33.333
  42.    this.Top = 4
  43.    this.Text = "Search"
  44.    this.Maximize = .F.
  45.    this.Minimize = .F.
  46.    this.MousePointer = 1
  47.    this.ColorNormal = "BtnText/BtnFace"
  48.    this.Height = 4.6875
  49.    this.Width = 36.833
  50.  
  51.    DEFINE RECTANGLE SEARCHRECT OF THIS;
  52.        PROPERTY;
  53.          Left 1.3184,;
  54.          Top 0.1973,;
  55.          Text "&Search for",;
  56.          ColorNormal "BtnText/BtnFace",;
  57.          Height 2.3652,;
  58.          Width 34.3477
  59.  
  60.    DEFINE ENTRYFIELD SEARCHENTRY OF THIS;
  61.        PROPERTY;
  62.          Left 2.6387,;
  63.          Top 1.0977,;
  64.          ColorHighLight "B+/W*",;
  65.          Value "            ",;
  66.          ColorNormal "B/BtnFace",;
  67.          Height 1.1523,;
  68.          Width 31.6943
  69.  
  70.    DEFINE OKBUTTON OKSEARCHBUTTON OF THIS;
  71.        PROPERTY;
  72.          Left 4,;
  73.          Top 3,;
  74.          Group .T.,;
  75.          Default .T.,;
  76.          Height 1.5,;
  77.          Width 14.166
  78.  
  79.    DEFINE CANCELBUTTON CANCELSEARCHBUTTON OF THIS;
  80.        PROPERTY;
  81.          Left 19.5,;
  82.          Top 3,;
  83.          Group .F.,;
  84.          ID 0,;
  85.          Height 1.5,;
  86.          Width 14.166
  87.  
  88. ENDCLASS
  89.